<?php
	require_once $_SERVER['DOCUMENT_ROOT'] . '/xampp/Reportes/xajax/xajax_core/xajax.inc.php';
	
	$xajax = new xajax();
	
	function getBateadores($idEquipo) {
		$respuesta = new xajaxResponse();
		
		$conexion = OCILogon ('mlb','1234') or die( "¡No se pudo conectar a la base de datos!") or die (OCIError());
		$query = "SELECT p.pk_id, p.datos.primer_nombre || ' ' || p.datos.primer_apellido || ' ' || getUltimoNumero(p.pk_id) 
							  || ' | ' || getUltimaPosicion(p.pk_id) JUGADOR
				  FROM PERSONA p, ROSTER r
				  WHERE p.pk_id = r.fk_id_persona
				  AND r.fk_id_equipo = $idEquipo
				  AND getUltimaPosicion(p.pk_id) <> 'P'
				  AND getUltimaPosicion(p.pk_id) <> 'MG'";		
		$sentencia = OCIParse($conexion, $query);             
       	OCIExecute($sentencia);                
       	$rows = OCIFetchstatement($sentencia, $resultado);
		OCILogOff($conexion);
		
		$impresion = '<select name="idBateador" style="font-size:11px;width:100px"	onchange="xajax_mostrarBateador(document.formJugador.idBateador.options[document.formJugador.idBateador.selectedIndex].value);xajax_mostrarFormulario()">';	
		$impresion .= '<option value="0">Elegir&nbsp;bateador&nbsp;&#172</option>';
		for ($i = 0; $i < $rows; $i++) {
			$impresion .= '<option value="' . $resultado['PK_ID'][$i] . '">' . $resultado['JUGADOR'][$i] . '</option>';
		}
		$impresion .= '</select>';
		
		$respuesta -> assign('comboBateadores', 'innerHTML', $impresion);
		
		return $respuesta;
	}
	
	$xajax -> registerFunction('getBateadores');
	
	function getLanzadores($idEquipo) {
		$respuesta = new xajaxResponse();
		
		$conexion = OCILogon ('mlb','1234') or die( "¡No se pudo conectar a la base de datos!") or die (OCIError());
		$query = "SELECT p.pk_id, p.datos.primer_nombre || ' ' || p.datos.primer_apellido || ' ' || 
							  getUltimoNumero(p.pk_id) JUGADOR
				  FROM PERSONA p, ROSTER r
				  WHERE p.pk_id = r.fk_id_persona
				  AND r.fk_id_equipo = $idEquipo
				  AND getUltimaPosicion(p.pk_id) = 'P'";		
		$sentencia = OCIParse($conexion, $query);             
       	OCIExecute($sentencia);                
       	$rows = OCIFetchstatement($sentencia, $resultado);
		OCILogOff($conexion);
		
		$impresion = '<select name="idLanzador" style="font-size:11px;width:100px"	onchange="xajax_mostrarLanzador(document.formJugador.idLanzador.options[document.formJugador.idLanzador.selectedIndex].value);xajax_mostrarFormulario()">';	
		$impresion .= '<option value="0">Elegir&nbsp;lanzador&nbsp;&#172</option>';
		for ($i = 0; $i < $rows; $i++) {
			$impresion .= '<option value="' . $resultado['PK_ID'][$i] . '">' . $resultado['JUGADOR'][$i] . '</option>';
		}
		$impresion .= '</select>';
		
		$respuesta -> assign('comboLanzadores', 'innerHTML', $impresion);
		
		return $respuesta;
	}
	
	$xajax -> registerFunction('getLanzadores');
	
	function getEquipos() {
		$conexion = OCILogon ('mlb','1234') or die( "¡No se pudo conectar a la base de datos!") or die (OCIError());
		$query = "SELECT pk_id, nombre
				  FROM EQUIPO
				  ORDER BY nombre";		
		$sentencia = OCIParse($conexion, $query);             
       	OCIExecute($sentencia);                
       	$rows = OCIFetchstatement($sentencia, $resultado);
		OCILogOff($conexion);
		
		$impresion = '<select name="idEquipo" style="font-size:11px;width:100px" 
	onchange="xajax_getBateadores(document.formJugador.idEquipo.options[document.formJugador.idEquipo.selectedIndex].value);xajax_getLanzadores(document.formJugador.idEquipo.options[document.formJugador.idEquipo.selectedIndex].value)">';	
		$impresion .= '<option value="0">Elegir&nbsp;equipo&nbsp;&#172</option>';
		for ($i = 0; $i < $rows; $i++) {
			$impresion .= '<option value="' . $resultado['PK_ID'][$i] . '">' . $resultado['NOMBRE'][$i] . '</option>';
		}
		$impresion .= '</select>';
		
		return $impresion;
	}
	
	function mostrarFormulario() {	
		$respuesta = new xajaxResponse();
		
		$impresion = '<form name="formJugador">';
		$impresion .= '<table align="center" width="550 px">';
    	$impresion .= '<tr>';
        $impresion .= '<td rowspan="2">';
        $impresion .= '<img src="imagenes/mlb.jpg" height="75px" width="75px" />';
        $impresion .= '</td>';
        $impresion .= '<td align="center" colspan="4">';
        $impresion .= '<h3>Estad&iacute;sticas&nbsp;de&nbsp;por&nbsp;vida</h3>';
        $impresion .= '</td>';
        $impresion .= '</tr>';
		
		$impresion .= '<tr>';
		$impresion .= '<td align="center">' . getEquipos() . '</td>';
		$impresion .= '<td align="center"><div id="comboBateadores"><select name="idPersona" style="font-size:11px;width:100px"><option value="0">Elegir&nbsp;bateador&nbsp;&#172</option></select></div></td>';
		$impresion .= '<td align="center"><div id="comboLanzadores"><select name="idPersona" style="font-size:11px;width:100px"><option value="0">Elegir&nbsp;lanzador&nbsp;&#172</option></select></div></td>';
		$impresion .= '</tr>';
        $impresion .= '</table><br />';
		$impresion .= '</form>';
		
		$respuesta -> assign('formulario', 'innerHTML', $impresion);
		
		return $respuesta;
	}
	
	$xajax -> registerFunction('mostrarFormulario');
	
	function getERA($er, $entradas) {
		if (($er == 0) || ($entradas == 0))
			return '0.00';
		
		if ($er == $entradas)
			return '9.00';
			
		$era = round($er*9/$entradas, 2);
		
		return str_pad($era, 4, '0', STR_PAD_RIGHT);
	}
	
	function getWHIP($hits, $boletos, $entradas) {
		if (($hits + $boletos == 0) || ($entradas == 0))
			return '0.00';
		
		if ($hits + $boletos == $entradas)
			return '1.00';
			
		$whip = round(($hits+$boletos)/$entradas, 2);
		
		return str_pad($whip, 4, '0', STR_PAD_RIGHT);
	}
	
	function getPromedio($hits, $turnos) {
		if (($hits == 0) || ($turnos == 0))
			return '.000';
		
		if ($hits == $turnos)
			return '1.000';
			
		$promedio = round($hits/$turnos, 3);
		
		return str_pad(substr($promedio, 1), 4, '0', STR_PAD_RIGHT);
	}
	
	function getOBP($hits, $boletos, $pelotazos, $turnos, $sf) {
		if (($hits + $boletos + $pelotazos == 0) || ($turnos + $boletos + $pelotazos + $sf == 0))
			return '.000';
			
		if (($hits + $boletos + $pelotazos) == ($turnos + $boletos + $pelotazos + $sf))
			return '1.000';
			
		$obp = round(($hits + $boletos + $pelotazos)/($turnos + $boletos + $pelotazos + $sf), 3);
		
		return str_pad(substr($obp, 1), 4, '0', STR_PAD_RIGHT);
	}
	
	function getSlg($totalBases, $turnos) {
		if (($totalBases == 0) || ($turnos == 0))
			return '.000';
			
		if ($totalBases == $turnos)
			return '1.000';
			
		$slg = round($totalBases/$turnos, 3);
		
		if (substr($slg, 0, 1) == 0)
			$slg = str_pad(substr($slg, 1), 4, '0', STR_PAD_RIGHT);
		
		else
			$slg = str_pad($slg, 5, '0', STR_PAD_RIGHT);
		
		return $slg;
	}
	
	function getOPS($hits, $boletos, $pelotazos, $turnos, $sf, $totalBases) {
		$obp = 2; $slg = 2;
				
		if (($hits + $boletos + $pelotazos == 0) || ($turnos + $boletos + $pelotazos + $sf == 0))
			$obp = 0;
			
		if (($totalBases == 0) || ($turnos == 0))
            $slg = 0;
			
		if (($hits + $boletos + $pelotazos) == ($turnos + $boletos + $pelotazos + $sf))
			$obp = 1;
			
		if ($totalBases == $turnos)
		    $slg = 1;
			
		if (($obp <> 0) && ($obp <> 1))
			$obp = round(($hits + $boletos + $pelotazos)/($turnos + $boletos + $pelotazos + $sf), 3);
			
		if (($slg <> 0) && ($slg <> 1))
			$slg = $totalBases/$turnos;
			
		$ops = round(($obp + $slg), 3);
		
		if (substr($ops, 0, 1) == 0)
			$ops = str_pad(substr($ops, 1), 4, '0', STR_PAD_RIGHT);
		
		else
			$ops = str_pad($ops, 5, '0', STR_PAD_RIGHT);
		
		return $ops;
	}
	
	function getGOAO($rodados, $elevados) {
		if (($rodados == 0) || ($elevados == 0))
			return '0.00';
			
		if ($rodados == $elevados)
			return '1.00';
			
		return str_replace(str_pad($promedio, 4, '0', STR_PAD_RIGHT), ',', '.');
	}
	
	function getEstCarrera($idPersona) {
		$conexion = OCILogon ('mlb','1234') or die( "¡No se pudo conectar a la base de datos!") or die (OCIError());
		$query = "SELECT eq.abreviatura EQUIPO, TO_CHAR(r.fecha_inicio, 'yyyy') TEMPORADA, 
						  COUNT(DISTINCT a.pk_fk_id_enc_entrada) G, SUM(i.bateo.ab) AB, SUM(i.bateo.r) R, 
						  SUM(i.bateo.h + i.bateo.dobles + i.bateo.triples + i.bateo.hr) H, 
						  SUM(i.bateo.h + i.bateo.dobles + 2*i.bateo.triples + 3*i.bateo.hr) TB, 
						  SUM(i.bateo.dobles) \"2B\", SUM(i.bateo.triples) \"3B\", SUM(i.bateo.hr) HR, SUM(i.bateo.rbi) RBI, 
						  SUM(i.bateo.bb) BB, SUM(i.bateo.ibb) IBB, SUM(i.bateo.k) SO, SUM(i.bateo.sb) SB, SUM(i.bateo.cs) CS,
						  SUM(i.bateo.hbp) HBP, SUM(i.bateo.sf) SF,
						  SUM(i.bateo.gb) RODADOS, SUM(i.bateo.fb) ELEVADOS, 
						  getPromedio(SUM(i.bateo.h + i.bateo.dobles + i.bateo.triples + i.bateo.hr), SUM(i.bateo.ab)) AVG, 
						  getOBP(SUM(i.bateo.h + i.bateo.dobles + i.bateo.triples + i.bateo.hr), 
						  SUM(i.bateo.bb) + SUM(i.bateo.ibb), SUM(i.bateo.hbp), SUM(i.bateo.ab), SUM(i.bateo.sf)) OBP, 
						  getSlg(SUM(i.bateo.h + i.bateo.dobles + 2*i.bateo.triples + 3*i.bateo.hr), SUM(i.bateo.ab)) SLG, 
						  getOPS(SUM(i.bateo.h + i.bateo.dobles + i.bateo.triples + i.bateo.hr), 
						  SUM(i.bateo.bb) + SUM(i.bateo.ibb), SUM(i.bateo.hbp), SUM(i.bateo.ab), SUM(i.bateo.sf), 
						  SUM(i.bateo.h + i.bateo.dobles + 2*i.bateo.triples + 3*i.bateo.hr)) OPS, getGOAO(SUM(i.bateo.gb), 
						  SUM(i.bateo.fb)) \"GO/AO\"
				  FROM EQUIPO eq, ENCUENTRO enc, ENTRADA en, ALINEACION a, ROSTER r, PERSONA p, INCIDENCIA i
				  WHERE p.pk_id = $idPersona
			      AND p.pk_id = r.fk_id_persona
				  AND r.status = 'ACTIVO'
				  AND r.fk_id_equipo = eq.pk_id
				  AND r.pk_id = a.pk_fk_id_roster
			      AND a.pk_fk_numero_entrada = en.pk_numero
				  AND a.pk_fk_parte_entrada = en.pk_parte
				  AND a.pk_fk_id_enc_entrada = en.pk_fk_id_encuentro
				  AND en.pk_fk_id_encuentro = enc.pk_id
				  AND a.pk_fk_id_roster = i.fk_id_rost_alin_jug
				  AND a.pk_fk_numero_entrada = i.fk_numero_entrada_jug
				  AND a.pk_fk_parte_entrada = i.fk_parte_entrada_jug
				  AND a.pk_fk_id_enc_entrada = i.fk_id_enc_entrada_jug
				  GROUP BY eq.abreviatura, TO_CHAR(r.fecha_inicio, 'yyyy')
				  ORDER BY 1";		
		$sentencia = OCIParse($conexion, $query);             
       	OCIExecute($sentencia);                
       	$rows = OCIFetchstatement($sentencia, $resultado);
		OCILogOff($conexion);
		
		$impresion = '<h5><b>ESTAD&Iacute;STICAS DE POR VIDA</b></h5>'; 
		
		$impresion .= '<table width="100%" align="left" border="0" cellpadding="2" cellspacing="0">';
		$impresion .= '<tr bgcolor="#000000">';
		$impresion .= '<td width="10%" align="center"><font color="#FFFFFF" size="-2">TEMPORADA</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">EQUIPO</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">G</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">AB</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">R</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">H</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">TB</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">2B</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">3B</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">HR</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">RBI</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">BB</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">IBB</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">SO</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">SB</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">CS</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">AVG</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">OBP</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">SLG</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">OPS</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">GA/GO</font></td>';
		$impresion .= '</tr>';
		
		
		$juegos = 0; $turnos = 0; $anotadas = 0; $hits = 0; $totalBases = 0; $dobles = 0; $triples = 0; $jonrones = 0;
		$impulsadas = 0; $boletos = 0; $iBoletos = 0; $ponches = 0; $basesRobadas = 0; $outsRobando = 0;
		$pelotazos = 0; $sf = 0; $rodados = 0; $elevados = 0;
		for ($i = 0; $i < $rows; $i++) {
			$impresion .= '<tr>';
			$impresion .= '<td align="center"><font size="-2"><b>' . $resultado['TEMPORADA'][$i] . '</b></font></td>';
			$impresion .= '<td align="center"><font color="#0099FF" size="-2"><b>' . $resultado['EQUIPO'][$i] . '</b></font></td>';
			$impresion .= '<td align="center"><font size="-2">' . $resultado['G'][$i] . '</font></td>';
			$juegos += $resultado['G'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['AB'][$i] . '</font></td>';
			$turnos += $resultado['AB'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['R'][$i] . '</font></td>';
			$anotadas += $resultado['R'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['H'][$i] . '</font></td>';
			$hits += $resultado['H'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['TB'][$i] . '</font></td>';
			$totalBases += $resultado['TB'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['2B'][$i] . '</font></td>';
			$dobles += $resultado['2B'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['3B'][$i] . '</font></td>';
			$triples += $resultado['3B'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['HR'][$i] . '</font></td>';
			$jonrones += $resultado['HR'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['RBI'][$i] . '</font></td>';
			$impulsadas += $resultado['RBI'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['BB'][$i] . '</font></td>';
			$boletos += $resultado['BB'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['IBB'][$i] . '</font></td>';
			$iBoletos += $resultado['IBB'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['SO'][$i] . '</font></td>';
			$ponches += $resultado['SO'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['SB'][$i] . '</font></td>';
			$basesRobadas += $resultado['SB'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['CS'][$i] . '</font></td>';
			$outsRobando += $resultado['CS'][$i];
			
			$pelotazos += $resultado['HBP'][$i];
			$sf += $resultado['SF'][$i];
			$rodados += $resultado['RODADOS'][$i];
			$elevados += $resultado['ELEVADOS'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['AVG'][0]) . '</font></td>';
			$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['OBP'][0]) . '</font></td>';
			$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['SLG'][0]) . '</font></td>';
			$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['OPS'][0]) . '</font></td>';
			$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['GO/AO'][0]) . '</font></td>';			
			$impresion .= '</tr>';
		}
		
		$impresion .= '<tr>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2"><b>DE POR VIDA</b></font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;">&nbsp;</td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $juegos . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $turnos . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $anotadas . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $hits . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $totalBases . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $dobles . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $triples . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $jonrones . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $impulsadas . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $boletos . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $iBoletos . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $ponches . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $basesRobadas . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $outsRobando . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . getPromedio($hits, $turnos) . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . getOBP($hits, $boletos, $pelotazos, $turnos, $sf) . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . getSlg($totalBases, $turnos) . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . getOPS($hits, $boletos, $pelotazos, $turnos, $sf, $totalBases) . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . getGOAO($rodados, $elevados) . '</font></td>';
		$impresion .= '</tr>';	
		$impresion .= '</table>';
		
		return $impresion;
	}
	
	function getEstCarreraLanzadores($idPersona) {
		$conexion = OCILogon ('mlb','1234') or die( "¡No se pudo conectar a la base de datos!") or die (OCIError());
		$query = "SELECT eq.abreviatura EQUIPO, TO_CHAR(r.fecha_inicio, 'yyyy') TEMPORADA, 
						  SUM(i.pitcheo.w) W, SUM(i.pitcheo.l) L,
						  getERA(SUM(i.pitcheo.er), getEntradas($idPersona, TO_CHAR(SYSDATE, 'yyyy'))) ERA,
						  COUNT(DISTINCT a.pk_fk_id_enc_entrada) G, getGS($idPersona, TO_CHAR(SYSDATE, 'yyyy')) GS, 
						  getCG($idPersona, TO_CHAR(SYSDATE, 'yyyy')) CG, 
						  SUM(i.pitcheo.so) SHO, SUM(i.pitcheo.sv) SV, SUM(i.pitcheo.svop) SVOP, 
						  getEntradas($idPersona, TO_CHAR(SYSDATE, 'yyyy')) IP, 
						  SUM(i.pitcheo.h + i.pitcheo.dobles + i.pitcheo.triples + i.pitcheo.hr) H, SUM(i.pitcheo.r) R, 
						  SUM(i.pitcheo.er) ER, SUM(i.pitcheo.hr) HR, SUM(i.pitcheo.fb) FB, 
						  SUM(i.pitcheo.bb + i.pitcheo.ibb) BB, SUM(i.pitcheo.k) SO, 
						  getPromedio(SUM(i.pitcheo.h + i.pitcheo.dobles + i.pitcheo.triples + i.pitcheo.hr), 
						  SUM(i.pitcheo.tbf)) PROMEDIO, getWHIP(SUM(i.pitcheo.bb + i.pitcheo.ibb), 
						  SUM(i.pitcheo.h + i.pitcheo.dobles + i.pitcheo.triples + i.pitcheo.hr), 
						  getEntradas($idPersona, TO_CHAR(SYSDATE, 'yyyy'))) WHIP, getGOAO(SUM(i.pitcheo.gb), 
						  SUM(i.pitcheo.fb)) \"GO/AO\", SUM(i.pitcheo.tbf) TBF, SUM(i.pitcheo.gb) GB, SUM(i.pitcheo.fb) FB 
				  FROM EQUIPO eq, ENCUENTRO enc, ENTRADA en, ALINEACION a, ROSTER r, PERSONA p, INCIDENCIA i
				  WHERE p.pk_id = $idPersona
			      AND p.pk_id = r.fk_id_persona
				  AND r.status = 'ACTIVO'
				  AND r.fk_id_equipo = eq.pk_id
				  AND r.pk_id = a.pk_fk_id_roster
			      AND a.pk_fk_numero_entrada = en.pk_numero
				  AND a.pk_fk_parte_entrada = en.pk_parte
				  AND a.pk_fk_id_enc_entrada = en.pk_fk_id_encuentro
				  AND en.pk_fk_id_encuentro = enc.pk_id
				  AND a.pk_fk_id_roster = i.fk_id_rost_alin_jug
				  AND a.pk_fk_numero_entrada = i.fk_numero_entrada_jug
				  AND a.pk_fk_parte_entrada = i.fk_parte_entrada_jug
				  AND a.pk_fk_id_enc_entrada = i.fk_id_enc_entrada_jug
				  GROUP BY eq.abreviatura, TO_CHAR(r.fecha_inicio, 'yyyy')
				  ORDER BY 1";
		$sentencia = OCIParse($conexion, $query);             
       	OCIExecute($sentencia);                
       	$rows = OCIFetchstatement($sentencia, $resultado);
		OCILogOff($conexion);
		
		$impresion = '<h5><b>ESTAD&Iacute;STICAS DE POR VIDA</b></h5>'; 
		
		$impresion .= '<table width="100%" align="left" border="0" cellpadding="2" cellspacing="0">';
		$impresion .= '<tr bgcolor="#000000">';
		$impresion .= '<td width="10%" align="center"><font color="#FFFFFF" size="-2">TEMPORADA</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">EQUIPO</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">W</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">L</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">ERA</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">G</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">GS</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">CG</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">SHO</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">SV</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">SVOP</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">IP</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">H</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">R</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">ER</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">HR</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">FB</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">BB</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">SO</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">AVG</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">WHIP</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">GO/AO</font></td>';
		$impresion .= '</tr>';
		
		
		$w = 0; $l = 0; $g = 0; $gs = 0; $cg = 0; $sho = 0; $sv = 0; $svop = 0;
		$ip = 0; $h = 0; $h = 0; $r = 0; $er = 0; $hr = 0; $fb = 0; $bb = 0; $so = 0; $tbf = 0; $gb = 0; $fb = 0;
		for ($i = 0; $i < $rows; $i++) {
			$impresion .= '<tr>';
			$impresion .= '<td align="center"><font size="-2"><b>' . $resultado['TEMPORADA'][$i] . '</b></font></td>';
			$impresion .= '<td align="center"><font color="#0099FF" size="-2"><b>' . $resultado['EQUIPO'][$i] . '</b></font></td>';
			$impresion .= '<td align="center"><font size="-2">' . $resultado['W'][$i] . '</font></td>';
			$w += $resultado['W'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['L'][$i] . '</font></td>';
			$l += $resultado['L'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['ERA'][$i] . '</font></td>';
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['G'][$i] . '</font></td>';
			$g += $resultado['G'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['GS'][$i] . '</font></td>';
			$gs += $resultado['GS'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['CG'][$i] . '</font></td>';
			$cg += $resultado['CG'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['SHO'][$i] . '</font></td>';
			$sho += $resultado['SHO'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['SV'][$i] . '</font></td>';
			$sv += $resultado['SV'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['SVOP'][$i] . '</font></td>';
			$svop += $resultado['SVOP'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['IP'][$i] . '</font></td>';
			$ip += $resultado['IP'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['H'][$i] . '</font></td>';
			$h += $resultado['H'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['R'][$i] . '</font></td>';
			$r += $resultado['R'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['ER'][$i] . '</font></td>';
			$er += $resultado['ER'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['HR'][$i] . '</font></td>';
			$hr += $resultado['HR'][$i];		
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['FB'][$i] . '</font></td>';
			$fb += $resultado['FB'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['BB'][$i] . '</font></td>';
			$bb += $resultado['BB'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . $resultado['SO'][$i] . '</font></td>';
			$so += $resultado['SO'][$i];
			
			$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['PROMEDIO'][$i]) . '</font></td>';
			$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['WHIP'][$i]) . '</font></td>';
			$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['GO/AO'][$i]) . '</font></td>';
			
			$tbf += $resultado['TBF']['$i'];
			$gb += $resultado['GB']['$i'];
			$fb += $resultado['FB']['$i'];			
			$impresion .= '</tr>';
		}
		
		$impresion .= '<tr>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2"><b>DE POR VIDA</b></font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;">&nbsp;</td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $w . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $l . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . getERA($er, $ip) . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $g . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $gs . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $cg . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $sho . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $sv . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $svop . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $ip . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $h . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $r . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $er . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $hr . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $fb . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $bb . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . $so . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . getPromedio($h, $tbf) . '</font></td>';		
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . getWHIP($hits, $boletos, $pelotazos, $turnos, $sf) . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:ridge;border-right:none;border-bottom:double;"><font size="-2">' . getGOAO($rodados, $elevados) . '</font></td>';
		$impresion .= '</tr>';	
		$impresion .= '</table>';
		
		return $impresion;
	}
	
	function getEstResumen($idPersona) {
		$conexion = OCILogon ('mlb','1234') or die( "¡No se pudo conectar a la base de datos!") or die (OCIError());
		$query = "SELECT COUNT(DISTINCT a.pk_fk_id_enc_entrada) G, SUM(i.bateo.ab) AB, SUM(i.bateo.r) R, 
						  SUM(i.bateo.h + i.bateo.dobles + i.bateo.triples + i.bateo.hr) H, 
						  SUM(i.bateo.h + i.bateo.dobles + 2*i.bateo.triples + 3*i.bateo.hr) TB, 
						  SUM(i.bateo.dobles) \"2B\", SUM(i.bateo.triples) \"3B\", SUM(i.bateo.hr) HR, SUM(i.bateo.rbi) RBI, 
						  SUM(i.bateo.bb) BB, SUM(i.bateo.ibb) IBB, SUM(i.bateo.k) SO, SUM(i.bateo.sb) SB, SUM(i.bateo.cs) CS,
						  getPromedio(SUM(i.bateo.h + i.bateo.dobles + i.bateo.triples + i.bateo.hr), SUM(i.bateo.ab)) AVG, 
						  getOBP(SUM(i.bateo.h + i.bateo.dobles + i.bateo.triples + i.bateo.hr), 
						  SUM(i.bateo.bb) + SUM(i.bateo.ibb), SUM(i.bateo.hbp), SUM(i.bateo.ab), SUM(i.bateo.sf)) OBP, 
						  getSlg(SUM(i.bateo.h + i.bateo.dobles + 2*i.bateo.triples + 3*i.bateo.hr), SUM(i.bateo.ab)) SLG, 
						  getOPS(SUM(i.bateo.h + i.bateo.dobles + i.bateo.triples + i.bateo.hr), 
						  SUM(i.bateo.bb) + SUM(i.bateo.ibb), SUM(i.bateo.hbp), SUM(i.bateo.ab), SUM(i.bateo.sf), 
						  SUM(i.bateo.h + i.bateo.dobles + 2*i.bateo.triples + 3*i.bateo.hr)) OPS, getGOAO(SUM(i.bateo.gb), 
						  SUM(i.bateo.fb)) \"GO/AO\"
				  FROM ENCUENTRO enc, ENTRADA en, ALINEACION a, ROSTER r, PERSONA p, INCIDENCIA i
				  WHERE p.pk_id = $idPersona
			      AND p.pk_id = r.fk_id_persona
				  AND TO_CHAR(SYSDATE, 'yyyy') BETWEEN TO_CHAR(r.fecha_inicio, 'yyyy') AND TO_CHAR(r.fecha_fin, 'yyyy')
			      AND r.status = 'ACTIVO'
				  AND r.pk_id = a.pk_fk_id_roster
			      AND a.pk_fk_numero_entrada = en.pk_numero
				  AND a.pk_fk_parte_entrada = en.pk_parte
				  AND a.pk_fk_id_enc_entrada = en.pk_fk_id_encuentro
				  AND en.pk_fk_id_encuentro = enc.pk_id
				  AND a.pk_fk_id_roster = i.fk_id_rost_alin_jug
				  AND a.pk_fk_numero_entrada = i.fk_numero_entrada_jug
				  AND a.pk_fk_parte_entrada = i.fk_parte_entrada_jug
				  AND a.pk_fk_id_enc_entrada = i.fk_id_enc_entrada_jug";
		$sentencia = OCIParse($conexion, $query);             
       	OCIExecute($sentencia);                
       	$rows = OCIFetchstatement($sentencia, $resultado);
		OCILogOff($conexion);
		
		$impresion = '<h5><b>RESUMEN DE ESTAD&Iacute;STICAS</b></h5>'; 
		
		$impresion .= '<table width="100%" align="left" border="0" cellpadding="2" cellspacing="0">';
		$impresion .= '<tr bgcolor="#000000">';
		$impresion .= '<td width="9%" align="center"><font color="#FFFFFF" size="-2">&nbsp;</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">G</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">AB</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">R</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">H</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">TB</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">2B</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">3B</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">HR</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">RBI</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">BB</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">IBB</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">SO</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">SB</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">CS</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">AVG</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">OBP</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">SLG</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">OPS</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">GA/GO</font></td>';
		$impresion .= '</tr>';
		
		$impresion .= '<tr>';
		$impresion .= '<td align="center"><font size="-2"><b>TEMPORADA</b></font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['G'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['AB'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['R'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['H'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['TB'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['2B'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['3B'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['HR'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['RBI'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['BB'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['IBB'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['SO'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['SB'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['CS'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['AVG'][0]) . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['OBP'][0]) . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['SLG'][0]) . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['OPS'][0]) . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['GO/AO'][0]) . '</font></td>';
		$impresion .= '</tr>';
		
		$conexion = OCILogon ('mlb','1234') or die( "¡No se pudo conectar a la base de datos!") or die (OCIError());
		$query = "SELECT COUNT(DISTINCT a.pk_fk_id_enc_entrada) G, SUM(i.bateo.ab) AB, SUM(i.bateo.r) R, 
						  SUM(i.bateo.h + i.bateo.dobles + i.bateo.triples + i.bateo.hr) H, 
						  SUM(i.bateo.h + i.bateo.dobles + 2*i.bateo.triples + 3*i.bateo.hr) TB, 
						  SUM(i.bateo.dobles) \"2B\", SUM(i.bateo.triples) \"3B\", SUM(i.bateo.hr) HR, SUM(i.bateo.rbi) RBI, 
						  SUM(i.bateo.bb) BB, SUM(i.bateo.ibb) IBB, SUM(i.bateo.k) SO, SUM(i.bateo.sb) SB, SUM(i.bateo.cs) CS,
						  getPromedio(SUM(i.bateo.h + i.bateo.dobles + i.bateo.triples + i.bateo.hr), SUM(i.bateo.ab)) AVG, 
						  getOBP(SUM(i.bateo.h + i.bateo.dobles + i.bateo.triples + i.bateo.hr), 
						  SUM(i.bateo.bb) + SUM(i.bateo.ibb), SUM(i.bateo.hbp), SUM(i.bateo.ab), SUM(i.bateo.sf)) OBP, 
						  getSlg(SUM(i.bateo.h + i.bateo.dobles + 2*i.bateo.triples + 3*i.bateo.hr), SUM(i.bateo.ab)) SLG, 
						  getOPS(SUM(i.bateo.h + i.bateo.dobles + i.bateo.triples + i.bateo.hr), 
						  SUM(i.bateo.bb) + SUM(i.bateo.ibb), SUM(i.bateo.hbp), SUM(i.bateo.ab), SUM(i.bateo.sf), 
						  SUM(i.bateo.h + i.bateo.dobles + 2*i.bateo.triples + 3*i.bateo.hr)) OPS, getGOAO(SUM(i.bateo.gb), 
						  SUM(i.bateo.fb)) \"GO/AO\"
				  FROM ENCUENTRO enc, ENTRADA en, ALINEACION a, ROSTER r, PERSONA p, INCIDENCIA i
				  WHERE p.pk_id = $idPersona
			      AND p.pk_id = r.fk_id_persona
				  AND r.status = 'ACTIVO'
				  AND r.pk_id = a.pk_fk_id_roster
			      AND a.pk_fk_numero_entrada = en.pk_numero
				  AND a.pk_fk_parte_entrada = en.pk_parte
				  AND a.pk_fk_id_enc_entrada = en.pk_fk_id_encuentro
				  AND en.pk_fk_id_encuentro = enc.pk_id
				  AND a.pk_fk_id_roster = i.fk_id_rost_alin_jug
				  AND a.pk_fk_numero_entrada = i.fk_numero_entrada_jug
				  AND a.pk_fk_parte_entrada = i.fk_parte_entrada_jug
				  AND a.pk_fk_id_enc_entrada = i.fk_id_enc_entrada_jug";
		$sentencia = OCIParse($conexion, $query);             
       	OCIExecute($sentencia);                
       	$rows = OCIFetchstatement($sentencia, $resultado);
		OCILogOff($conexion);
		
		$impresion .= '<tr>';
		$impresion .= '<td align="center"><font size="-2"><b>DE POR VIDA</b></font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['G'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['AB'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['R'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['H'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['TB'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['2B'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['3B'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['HR'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['RBI'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['BB'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['IBB'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['SO'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['SB'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['CS'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['AVG'][0]) . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['OBP'][0]) . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['SLG'][0]) . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['OPS'][0]) . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['GO/AO'][0]) . '</font></td>';
		$impresion .= '</tr>';		
		$impresion .= '</table>';
		
		return $impresion;
	}
	
	function getEstResumenLanzadores($idPersona) {
		$conexion = OCILogon ('mlb','1234') or die( "¡No se pudo conectar a la base de datos!") or die (OCIError());
		$query = "SELECT SUM(i.pitcheo.w) W, SUM(i.pitcheo.l) L,
						  getERA(SUM(i.pitcheo.er), getEntradas($idPersona, TO_CHAR(SYSDATE, 'yyyy'))) ERA,
						  COUNT(DISTINCT a.pk_fk_id_enc_entrada) G, getGS($idPersona, TO_CHAR(SYSDATE, 'yyyy')) GS, 
						  getCG($idPersona, TO_CHAR(SYSDATE, 'yyyy')) CG, 
						  SUM(i.pitcheo.so) SHO, SUM(i.pitcheo.sv) SV, SUM(i.pitcheo.svop) SVOP, 
						  getEntradas($idPersona, TO_CHAR(SYSDATE, 'yyyy')) IP, 
						  SUM(i.pitcheo.h + i.pitcheo.dobles + i.pitcheo.triples + i.pitcheo.hr) H, SUM(i.pitcheo.r) R, 
						  SUM(i.pitcheo.er) ER, SUM(i.pitcheo.hr) HR, SUM(i.pitcheo.fb) FB, 
						  SUM(i.pitcheo.bb + i.pitcheo.ibb) BB, SUM(i.pitcheo.k) SO, 
						  getPromedio(SUM(i.pitcheo.h + i.pitcheo.dobles + i.pitcheo.triples + i.pitcheo.hr), 
						  SUM(i.pitcheo.tbf)) PROMEDIO, getWHIP(SUM(i.pitcheo.bb + i.pitcheo.ibb), 
						  SUM(i.pitcheo.h + i.pitcheo.dobles + i.pitcheo.triples + i.pitcheo.hr), 
						  getEntradas($idPersona, TO_CHAR(SYSDATE, 'yyyy'))) WHIP, getGOAO(SUM(i.pitcheo.gb), 
						  SUM(i.pitcheo.fb)) \"GO/AO\" 
				  FROM ENCUENTRO enc, ENTRADA en, ALINEACION a, ROSTER r, PERSONA p, INCIDENCIA i
				  WHERE p.pk_id = $idPersona
			      AND p.pk_id = r.fk_id_persona
				  AND TO_CHAR(SYSDATE, 'yyyy') BETWEEN TO_CHAR(r.fecha_inicio, 'yyyy') AND TO_CHAR(r.fecha_fin, 'yyyy')
			      AND r.status = 'ACTIVO'
				  AND r.pk_id = a.pk_fk_id_roster
			      AND a.pk_fk_numero_entrada = en.pk_numero
				  AND a.pk_fk_parte_entrada = en.pk_parte
				  AND a.pk_fk_id_enc_entrada = en.pk_fk_id_encuentro
				  AND en.pk_fk_id_encuentro = enc.pk_id
				  AND a.pk_fk_id_roster = i.fk_id_rost_alin_jug
				  AND a.pk_fk_numero_entrada = i.fk_numero_entrada_jug
				  AND a.pk_fk_parte_entrada = i.fk_parte_entrada_jug
				  AND a.pk_fk_id_enc_entrada = i.fk_id_enc_entrada_jug";
		$sentencia = OCIParse($conexion, $query);             
       	OCIExecute($sentencia);                
       	$rows = OCIFetchstatement($sentencia, $resultado);
		OCILogOff($conexion);
		
		$impresion = '<h5><b>RESUMEN DE ESTAD&Iacute;STICAS</b></h5>'; 
		
		$impresion .= '<table width="100%" align="left" border="0" cellpadding="2" cellspacing="0">';
		$impresion .= '<tr bgcolor="#000000">';
		$impresion .= '<td width="9%" align="center"><font color="#FFFFFF" size="-2">&nbsp;</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">W</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">L</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">ERA</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">G</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">GS</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">CG</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">SHO</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">SV</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">SVOP</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">IP</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">H</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">R</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">ER</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">HR</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">FB</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">BB</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">SO</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">AVG</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">WHIP</font></td>';
		$impresion .= '<td width="5%" align="center"><font color="#FFFFFF" size="-2">GO/AO</font></td>';
		$impresion .= '</tr>';
		
		$impresion .= '<tr>';
		$impresion .= '<td align="center"><font size="-2"><b>TEMPORADA</b></font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['W'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['L'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['ERA'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['G'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['GS'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['CG'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['SHO'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['SV'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['SVOP'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['IP'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['H'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['R'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['ER'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['HR'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['FB'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['BB'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['SO'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['PROMEDIO'][0]) . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['WHIP'][0]) . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['GO/AO'][0]) . '</font></td>';		
		$impresion .= '</tr>';
		
		$conexion = OCILogon ('mlb','1234') or die( "¡No se pudo conectar a la base de datos!") or die (OCIError());
		$query = "SELECT SUM(i.pitcheo.w) W, SUM(i.pitcheo.l) L,
						  getERA(SUM(i.pitcheo.er), getEntradas($idPersona, TO_CHAR(SYSDATE, 'yyyy'))) ERA,
						  COUNT(DISTINCT a.pk_fk_id_enc_entrada) G, getGS($idPersona, TO_CHAR(SYSDATE, 'yyyy')) GS, 
						  getCG($idPersona, TO_CHAR(SYSDATE, 'yyyy')) CG, 
						  SUM(i.pitcheo.so) SHO, SUM(i.pitcheo.sv) SV, SUM(i.pitcheo.svop) SVOP, 
						  getEntradas($idPersona, TO_CHAR(SYSDATE, 'yyyy')) IP, 
						  SUM(i.pitcheo.h + i.pitcheo.dobles + i.pitcheo.triples + i.pitcheo.hr) H, SUM(i.pitcheo.r) R, 
						  SUM(i.pitcheo.er) ER, SUM(i.pitcheo.hr) HR, SUM(i.pitcheo.fb) FB, 
						  SUM(i.pitcheo.bb + i.pitcheo.ibb) BB, SUM(i.pitcheo.k) SO, 
						  getPromedio(SUM(i.pitcheo.h + i.pitcheo.dobles + i.pitcheo.triples + i.pitcheo.hr), 
						  SUM(i.pitcheo.tbf)) PROMEDIO, getWHIP(SUM(i.pitcheo.bb + i.pitcheo.ibb), 
						  SUM(i.pitcheo.h + i.pitcheo.dobles + i.pitcheo.triples + i.pitcheo.hr), 
						  getEntradas($idPersona, TO_CHAR(SYSDATE, 'yyyy'))) WHIP, getGOAO(SUM(i.pitcheo.gb), 
						  SUM(i.pitcheo.fb)) \"GO/AO\" 
				  FROM ENCUENTRO enc, ENTRADA en, ALINEACION a, ROSTER r, PERSONA p, INCIDENCIA i
				  WHERE p.pk_id = $idPersona
			      AND p.pk_id = r.fk_id_persona
				  AND r.status = 'ACTIVO'
				  AND r.pk_id = a.pk_fk_id_roster
			      AND a.pk_fk_numero_entrada = en.pk_numero
				  AND a.pk_fk_parte_entrada = en.pk_parte
				  AND a.pk_fk_id_enc_entrada = en.pk_fk_id_encuentro
				  AND en.pk_fk_id_encuentro = enc.pk_id
				  AND a.pk_fk_id_roster = i.fk_id_rost_alin_jug
				  AND a.pk_fk_numero_entrada = i.fk_numero_entrada_jug
				  AND a.pk_fk_parte_entrada = i.fk_parte_entrada_jug
				  AND a.pk_fk_id_enc_entrada = i.fk_id_enc_entrada_jug";
		$sentencia = OCIParse($conexion, $query);             
       	OCIExecute($sentencia);                
       	$rows = OCIFetchstatement($sentencia, $resultado);
		OCILogOff($conexion);
		
		$impresion .= '<tr>';
		$impresion .= '<td align="center"><font size="-2"><b>DE POR VIDA</b></font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['W'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['L'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['ERA'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['G'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['GS'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['CG'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['SHO'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['SV'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['SVOP'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['IP'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['H'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['R'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['ER'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['HR'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['FB'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['BB'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . $resultado['SO'][0] . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['PROMEDIO'][0]) . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['WHIP'][0]) . '</font></td>';
		$impresion .= '<td align="center"><font size="-2">' . str_replace(' ', '', $resultado['GO/AO'][0]) . '</font></td>';
		$impresion .= '</tr>';		
		$impresion .= '</table>';
		
		return $impresion;
	}
	
	function getUltimos10($idPersona) {
		$conexion = OCILogon ('mlb','1234') or die( "¡No se pudo conectar a la base de datos!") or die (OCIError());
		$query = "SELECT * FROM 
					  (SELECT TO_CHAR(enc.fecha, 'dd/mm/yyyy') FECHA, getRival(enc.fecha, 17) RIVAL, 
					  SUM(i.bateo.ab) TURNOS, SUM(i.bateo.r) ANOTADAS, 
					  SUM(i.bateo.h + i.bateo.dobles + i.bateo.triples + i.bateo.hr) HITS, SUM(i.bateo.hr) JONRONES, 
					  SUM(i.bateo.rbi) IMPULSADAS, SUM(i.bateo.bb) BOLETOS, SUM(i.bateo.k) PONCHES, 
					  SUM(i.bateo.sb) BASES_ROBADAS, 
					  getPromedio(SUM(i.bateo.h + i.bateo.dobles + i.bateo.triples + i.bateo.hr), SUM(i.bateo.ab)) PROMEDIO
					  FROM ENCUENTRO enc, ENTRADA en, ALINEACION a, ROSTER r, PERSONA p, INCIDENCIA i
					  WHERE p.pk_id = $idPersona
					  AND p.pk_id = r.fk_id_persona
					  AND r.pk_id = a.pk_fk_id_roster
					  AND a.pk_fk_numero_entrada = en.pk_numero
					  AND a.pk_fk_parte_entrada = en.pk_parte
					  AND a.pk_fk_id_enc_entrada = en.pk_fk_id_encuentro
					  AND en.pk_fk_id_encuentro = enc.pk_id
					  AND a.pk_fk_id_roster = i.fk_id_rost_alin_jug
					  AND a.pk_fk_numero_entrada = i.fk_numero_entrada_jug
					  AND a.pk_fk_parte_entrada = i.fk_parte_entrada_jug
					  AND a.pk_fk_id_enc_entrada = i.fk_id_enc_entrada_jug
					  GROUP BY enc.fecha
					  ORDER BY enc.fecha DESC)
				  WHERE ROWNUM <= 10";
		$sentencia = OCIParse($conexion, $query);             
       	OCIExecute($sentencia);                
       	$rows = OCIFetchstatement($sentencia, $resultado);
		OCILogOff($conexion);
		
		$impresion .= '<table width="300px" align="left" border="0" cellpadding="2" cellspacing="0">';
		$impresion .= '<tr>';
		$impresion .= '<td colspan="11"><br /><font size="-1"><b>&Uacute;ltimos&nbsp;10</b></font></td>';
		$impresion .= '</tr><br />';
		
		$impresion .= '<tr bgcolor="#000000">';
		$impresion .= '<td width="14%" align="center"><font color="#FFFFFF" size="-2">FECHA</font></td>';
		$impresion .= '<td width="18%" align="center"><font color="#FFFFFF" size="-2">OPO</font></td>';
		$impresion .= '<td width="8%" align="center"><font color="#FFFFFF" size="-2">AB</font></td>';
		$impresion .= '<td width="8%" align="center"><font color="#FFFFFF" size="-2">R</font></td>';
		$impresion .= '<td width="8%" align="center"><font color="#FFFFFF" size="-2">H</font></td>';
		$impresion .= '<td width="8%" align="center"><font color="#FFFFFF" size="-2">HR</font></td>';
		$impresion .= '<td width="8%" align="center"><font color="#FFFFFF" size="-2">RBI</font></td>';
		$impresion .= '<td width="8%" align="center"><font color="#FFFFFF" size="-2">BB</font></td>';
		$impresion .= '<td width="8%" align="center"><font color="#FFFFFF" size="-2">SO</font></td>';
		$impresion .= '<td width="8%" align="center"><font color="#FFFFFF" size="-2">SB</font></td>';
		$impresion .= '<td width="8%" align="center"><font color="#FFFFFF" size="-2">AVG</font></td>';
		$impresion .= '</tr>';
		
		$turnos = 0; $anotadas = 0; $hits = 0; $jonrones = 0; $impulsadas = 0; $boletos = 0; $ponches = 0; $basesRobadas = 0;		
		for ($i = 0; $i < $rows; $i++) {
			$impresion .= '<tr>';
			$impresion .= '<td align="left" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font color="#0099FF" size="-2"><b>' . $resultado['FECHA'][$i] . '</b></font></td>';			
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . $resultado['RIVAL'][$i] . '</font></td>';		
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . $resultado['TURNOS'][$i] . '</font></td>';
			$turnos += $resultado['TURNOS'][$i];
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . $resultado['ANOTADAS'][$i] . '</font></td>';
			$anotadas += $resultado['ANOTADAS'][$i];
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . $resultado['HITS'][$i] . '</font></td>';
			$hits += $resultado['HITS'][$i];
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . $resultado['JONRONES'][$i] . '</font></td>';
			$jonrones += $resultado['JONRONES'][$i];
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . $resultado['IMPULSADAS'][$i] . '</font></td>';
			$impulsadas += $resultado['IMPULSADAS'][$i];
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . $resultado['BOLETOS'][$i] . '</font></td>';
			$boletos += $resultado['BOLETOS'][$i];
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . $resultado['PONCHES'][$i] . '</font></td>';
			$ponches += $resultado['PONCHES'][$i];
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . $resultado['BASES_ROBADAS'][$i] . '</font></td>';
			$basesRobadas += $resultado['BASES_ROBADAS'][$i];
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . str_replace(' ', '', $resultado['PROMEDIO'][$i]) . '</font></td>';
			$impresion .= '</tr>';
		}
		
		$impresion .= '<tr>';
		$impresion .= '<td align="left" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2"><b>TOTALES</b></font></td>';
		$impresion .= '<td style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2">' . $turnos . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2">' . $anotadas . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2">' . $hits . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2">' . $jonrones . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2">' . $impulsadas . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2">' . $boletos . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2">' . $ponches . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2">' . $basesRobadas . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2">' . getPromedio($hits, $turnos) . '</font></td>';
		$impresion .= '</tr>';		
		$impresion .= '</table>';
		
		return $impresion;
	}
	
	function getUltimos10Lanzadores($idPersona) {
		$conexion = OCILogon ('mlb','1234') or die( "¡No se pudo conectar a la base de datos!") or die (OCIError());
		$query = "SELECT * FROM 
					  (SELECT TO_CHAR(enc.fecha, 'dd/mm/yyyy') FECHA, getRival(enc.fecha, 17) RIVAL, 
					  SUM(i.pitcheo.w) W, SUM(i.pitcheo.l) L,
                      getERA(SUM(i.pitcheo.er), getEntradas($idPersona, enc.pk_id)) ERA, 
					  SUM(i.pitcheo.sv) SV, getEntradas($idPersona, enc.pk_id) IP, 
					  SUM(i.pitcheo.h + i.pitcheo.dobles + i.pitcheo.triples + i.pitcheo.hr) H,
					  SUM(i.pitcheo.er) ER, SUM(i.pitcheo.bb + i.pitcheo.ibb) BB, SUM(i.pitcheo.k) SO
					  FROM ENCUENTRO enc, ENTRADA en, ALINEACION a, ROSTER r, PERSONA p, INCIDENCIA i
					  WHERE p.pk_id = $idPersona
					  AND p.pk_id = r.fk_id_persona
					  AND r.pk_id = a.pk_fk_id_roster
					  AND a.pk_fk_numero_entrada = en.pk_numero
					  AND a.pk_fk_parte_entrada = en.pk_parte
					  AND a.pk_fk_id_enc_entrada = en.pk_fk_id_encuentro
					  AND en.pk_fk_id_encuentro = enc.pk_id
					  AND a.pk_fk_id_roster = i.fk_id_rost_alin_jug
					  AND a.pk_fk_numero_entrada = i.fk_numero_entrada_jug
					  AND a.pk_fk_parte_entrada = i.fk_parte_entrada_jug
					  AND a.pk_fk_id_enc_entrada = i.fk_id_enc_entrada_jug
					  GROUP BY enc.fecha, enc.pk_id
					  ORDER BY enc.fecha DESC)
				  WHERE ROWNUM <= 10";
		$sentencia = OCIParse($conexion, $query);             
       	OCIExecute($sentencia);                
       	$rows = OCIFetchstatement($sentencia, $resultado);
		OCILogOff($conexion);
		
		$impresion .= '<table width="300px" align="left" border="0" cellpadding="2" cellspacing="0">';
		$impresion .= '<tr>';
		$impresion .= '<td colspan="11"><br /><font size="-1"><b>&Uacute;ltimos&nbsp;10</b></font></td>';
		$impresion .= '</tr><br />';
		
		$impresion .= '<tr bgcolor="#000000">';
		$impresion .= '<td width="14%" align="center"><font color="#FFFFFF" size="-2">FECHA</font></td>';
		$impresion .= '<td width="18%" align="center"><font color="#FFFFFF" size="-2">OPO</font></td>';
		$impresion .= '<td width="8%" align="center"><font color="#FFFFFF" size="-2">W</font></td>';
		$impresion .= '<td width="8%" align="center"><font color="#FFFFFF" size="-2">L</font></td>';
		$impresion .= '<td width="8%" align="center"><font color="#FFFFFF" size="-2">ERA</font></td>';
		$impresion .= '<td width="8%" align="center"><font color="#FFFFFF" size="-2">SV</font></td>';
		$impresion .= '<td width="8%" align="center"><font color="#FFFFFF" size="-2">IP</font></td>';
		$impresion .= '<td width="8%" align="center"><font color="#FFFFFF" size="-2">H</font></td>';
		$impresion .= '<td width="8%" align="center"><font color="#FFFFFF" size="-2">ER</font></td>';
		$impresion .= '<td width="8%" align="center"><font color="#FFFFFF" size="-2">BB</font></td>';
		$impresion .= '<td width="8%" align="center"><font color="#FFFFFF" size="-2">SO</font></td>';
		$impresion .= '</tr>';
		
		$w = 0; $l = 0; $sv = 0; $innings = 0; $h = 0; $er = 0; $bb = 0; $so = 0;		
		for ($i = 0; $i < $rows; $i++) {
			$impresion .= '<tr>';
			$impresion .= '<td align="left" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font color="#0099FF" size="-2"><b>' . $resultado['FECHA'][$i] . '</b></font></td>';			
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . $resultado['RIVAL'][$i] . '</font></td>';		
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . $resultado['W'][$i] . '</font></td>';
			$w += $resultado['W'][$i];
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . $resultado['L'][$i] . '</font></td>';
			$l += $resultado['L'][$i];
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . $resultado['ERA'][$i] . '</font></td>';
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . $resultado['SV'][$i] . '</font></td>';
			$sv += $resultado['SV'][$i];
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . $resultado['IP'][$i] . '</font></td>';
			$innings += $resultado['IP'][$i];
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . $resultado['H'][$i] . '</font></td>';
			$h += $resultado['H'][$i];
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . $resultado['ER'][$i] . '</font></td>';
			$er += $resultado['ER'][$i];
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . $resultado['BB'][$i] . '</font></td>';
			$bb += $resultado['BB'][$i];
			
			$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:groove;"><font size="-2">' . $resultado['SO'][$i] . '</font></td>';
			$so += $resultado['SO'][$i];
		}
		
		$impresion .= '<tr>';
		$impresion .= '<td align="left" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2"><b>TOTALES</b></font></td>';
		$impresion .= '<td style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2">' . $w . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2">' . $l . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2">' . getEra($er, $innings) . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2">' . $sv . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2">' . $innings . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2">' . $h . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2">' . $er . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2">' . $bb . '</font></td>';
		$impresion .= '<td align="center" style="border-left:none;border-top:none;border-right:none;border-bottom:ridge;"><font color="#000059" size="-2">' . $so . '</font></td>';
		$impresion .= '</tr>';		
		$impresion .= '</table>';
		
		return $impresion;
	}
	
	function getDatosRecientes($idPersona) {
		$conexion = OCILogon ('mlb','1234') or die( "¡No se pudo conectar a la base de datos!") or die (OCIError());
		$query = "SELECT r.fk_id_equipo ID_EQUIPO, INITCAP(r.status) STATUS, 
						TO_CHAR(p.datos.fecha_nacimiento, 'mm/dd/yyyy') NACIO, cond.nombre CONDADO, 
						ciu.nombre CIUDAD, edo.nombre ESTADO, pais.nombre PAIS, 
						SUBSTR(p.batea, 0, 1) || '/' || SUBSTR(p.lanza, 0, 1) \"BATEA/LANZA\", 
						SUBSTR(TO_CHAR(p.estatura), 0, 1) || CHR(39) || NVL(SUBSTR(TO_CHAR(p.estatura), 3), 0) || CHR(39) 
							|| CHR(39) ESTATURA, p.peso, TO_CHAR(p.fecha_debut, 'mm/dd/yyyy') DEBUT, 
						NVL(p.universidad, 'N/A') UNIVERSIDAD
				  FROM PERSONA p, ROSTER r, LUGAR cond, LUGAR ciu, LUGAR edo, LUGAR pais
				  WHERE p.pk_id = $idPersona
				  AND p.pk_id = r.fk_id_persona
				  AND p.fk_id_lugar = cond.pk_id
				  AND cond.fk_id_lugar = ciu.pk_id
				  AND ciu.fk_id_lugar = edo.pk_id
				  AND edo.fk_id_lugar = pais.pk_id";
		$sentencia = OCIParse($conexion, $query);             
       	OCIExecute($sentencia);                
       	$rows = OCIFetchstatement($sentencia, $resultado);
		OCILogOff($conexion);
		
		$impresion = '<table cellpadding="1" cellspacing="1" border="0">';
		$impresion .= '<tr>';
		$impresion .= '<td align="left"><font size="-1"><b>Status:&nbsp;' . $resultado['STATUS'][0] . '</b></font></td>';
		$impresion .= '</tr>';
		
		$impresion .= '<tr>';
		$impresion .= '<td align="left"><font size="-1">';
		$impresion .= 'Naci&oacute;:&nbsp;<b>' . $resultado['NACIO'][0] . '&nbsp;en&nbsp;';
		$impresion .= $resultado['CIUDAD'][0] . ', ' . $resultado['PAIS'][0] . '</b>';
		$impresion .= '</td>';
		$impresion .= '</tr>';
		
		$impresion .= '<tr>';
		$impresion .= '<td align="left"><font size="-1">';
		$impresion .= 'Batea/Lanza:&nbsp;<b>' . $resultado['BATEA/LANZA'][0] . '</b>&nbsp;&nbsp;&nbsp;&nbsp;';
		$impresion .= 'Est:&nbsp;<b>' . $resultado['ESTATURA'][0] . '</b>&nbsp;&nbsp;&nbsp;&nbsp;';
		$impresion .= 'Peso:&nbsp;<b>' . $resultado['PESO'][0] . '&nbsp;&nbsp;&nbsp;&nbsp;';
		$impresion .= '</td>';
		$impresion .= '</tr>';
		
		$impresion .= '<tr>';
		$impresion .= '<td align="left"><font size="-1">';
		$impresion .= 'Debut:&nbsp;<b>' . $resultado['DEBUT'][0] . '</b>&nbsp;&nbsp;&nbsp;&nbsp;';
		$impresion .= 'Universidad:&nbsp;<b>' . $resultado['UNIVERSIDAD'][0] . '&nbsp;&nbsp;&nbsp;&nbsp;';
		$impresion .= '</tr>';
		$impresion .= '</td>';
		$impresion .= '</table>';
		
		$impresion .= getUltimos10($idPersona, $resultado['ID_EQUIPO'][0]);
		
		return $impresion;
	}
	
	function getDatosRecientesLanzadores($idPersona) {
		$conexion = OCILogon ('mlb','1234') or die( "¡No se pudo conectar a la base de datos!") or die (OCIError());
		$query = "SELECT r.fk_id_equipo ID_EQUIPO, INITCAP(r.status) STATUS, 
						TO_CHAR(p.datos.fecha_nacimiento, 'mm/dd/yyyy') NACIO, cond.nombre CONDADO, 
						ciu.nombre CIUDAD, edo.nombre ESTADO, pais.nombre PAIS, 
						SUBSTR(p.batea, 0, 1) || '/' || SUBSTR(p.lanza, 0, 1) \"BATEA/LANZA\", 
						SUBSTR(TO_CHAR(p.estatura), 0, 1) || CHR(39) || NVL(SUBSTR(TO_CHAR(p.estatura), 3), 0) || CHR(39) 
							|| CHR(39) ESTATURA, p.peso, TO_CHAR(p.fecha_debut, 'mm/dd/yyyy') DEBUT, 
						NVL(p.universidad, 'N/A') UNIVERSIDAD
				  FROM PERSONA p, ROSTER r, LUGAR cond, LUGAR ciu, LUGAR edo, LUGAR pais
				  WHERE p.pk_id = $idPersona
				  AND p.pk_id = r.fk_id_persona
				  AND p.fk_id_lugar = cond.pk_id
				  AND cond.fk_id_lugar = ciu.pk_id
				  AND ciu.fk_id_lugar = edo.pk_id
				  AND edo.fk_id_lugar = pais.pk_id";
		$sentencia = OCIParse($conexion, $query);             
       	OCIExecute($sentencia);                
       	$rows = OCIFetchstatement($sentencia, $resultado);
		OCILogOff($conexion);
		
		$impresion = '<table cellpadding="1" cellspacing="1" border="0">';
		$impresion .= '<tr>';
		$impresion .= '<td align="left"><font size="-1"><b>Status:&nbsp;' . $resultado['STATUS'][0] . '</b></font></td>';
		$impresion .= '</tr>';
		
		$impresion .= '<tr>';
		$impresion .= '<td align="left"><font size="-1">';
		$impresion .= 'Naci&oacute;:&nbsp;<b>' . $resultado['NACIO'][0] . '&nbsp;en&nbsp;';
		$impresion .= $resultado['CIUDAD'][0] . ', ' . $resultado['PAIS'][0] . '</b>';
		$impresion .= '</td>';
		$impresion .= '</tr>';
		
		$impresion .= '<tr>';
		$impresion .= '<td align="left"><font size="-1">';
		$impresion .= 'Batea/Lanza:&nbsp;<b>' . $resultado['BATEA/LANZA'][0] . '</b>&nbsp;&nbsp;&nbsp;&nbsp;';
		$impresion .= 'Est:&nbsp;<b>' . $resultado['ESTATURA'][0] . '</b>&nbsp;&nbsp;&nbsp;&nbsp;';
		$impresion .= 'Peso:&nbsp;<b>' . $resultado['PESO'][0] . '&nbsp;&nbsp;&nbsp;&nbsp;';
		$impresion .= '</td>';
		$impresion .= '</tr>';
		
		$impresion .= '<tr>';
		$impresion .= '<td align="left"><font size="-1">';
		$impresion .= 'Debut:&nbsp;<b>' . $resultado['DEBUT'][0] . '</b>&nbsp;&nbsp;&nbsp;&nbsp;';
		$impresion .= 'Universidad:&nbsp;<b>' . $resultado['UNIVERSIDAD'][0] . '&nbsp;&nbsp;&nbsp;&nbsp;';
		$impresion .= '</tr>';
		$impresion .= '</td>';
		$impresion .= '</table>';
		
		$impresion .= getUltimos10Lanzadores($idPersona, $resultado['ID_EQUIPO'][0]);
		
		return $impresion;
	}
	
	function getImagen($idPersona) {
		$conexion = OCILogon ('mlb','1234') or die( "¡No se pudo conectar a la base de datos!") or die (OCIError());
		$query = "SELECT p.datos.primer_nombre || ' ' || p.datos.primer_apellido NOMBRE_COMPLETO, 
						  getUltimoNumero(p.pk_id) NUMERO, getUltimaPosicion(p.pk_id) POSICION, r.fk_id_equipo ID_EQUIPO
				  FROM PERSONA p, ROSTER r
				  WHERE p.pk_id = $idPersona
				  AND p.pk_id = r.fk_id_persona";
		$sentencia = OCIParse($conexion, $query);             
       	OCIExecute($sentencia);                
       	$rows = OCIFetchstatement($sentencia, $resultado);
		OCILogOff($conexion);
		
		$impresion .= '<table align="center" width="525px" height="300px" background="librerias/mostrarImagenPersona.php?idPersona=' . $idPersona . '">';
		$impresion .= '<tr>';
		$impresion .= '<td valign="top" align="right">';
			$impresion .= '<table bgcolor="#000000" width="225px" height="40px">';
			$impresion .= '<tr>';
			$impresion .= '<td align="center"><font color="#FFFFFF" size="+1">' . $resultado['NOMBRE_COMPLETO'][0] . '</font></td>';
			$impresion .= '<td align="center"><font color="#FFFFFF" size="+1">' . $resultado['NUMERO'][0] . '</font></td>';
			$impresion .= '<td align="center"><font color="#FFFFFF" size="+1">|</font></td>';
			$impresion .= '<td align="center"><font color="#FFFFFF" size="+1">' . $resultado['POSICION'][0] . '</font></td>';
			$impresion .= '<td align="center"><img src="librerias/mostrarImagen.php?idEquipo=' . $resultado['ID_EQUIPO'][0] . '" border="0" width="25px" height="25px"></td>';
			$impresion .= '</tr>';
			$impresion .= '</table>';
		$impresion .= '</td>';
		$impresion .= '</tr>';
		$impresion .= '</table>';
		
		return $impresion;
	}
	
	function mostrarBateador($idPersona) {
		$respuesta = new xajaxResponse();
		
		$impresion .= '<table align="center" cellspacing="5" border="1" bordercolor="#CCCCCC">';
		$impresion .= '<tr>';
		$impresion .= '<td valign="top" style="border-left:none;border-top:none;border-right:none;border-bottom:none;">' . getImagen($idPersona) . '</td>';
		$impresion .= '<td style="border-left:none;border-top:none;border-right:none;border-bottom:none;">' . getDatosRecientes($idPersona) . '</td>';
		$impresion .= '</tr>';
		
		$impresion .= '<tr>';
		$impresion .= '<td colspan="2" style="border-left:none;border-top:none;border-right:none;border-bottom:none;">' . getEstResumen($idPersona) . '</td>';
		$impresion .= '<tr>';
		
		$impresion .= '<tr>';
		$impresion .= '<td colspan="2" style="border-left:ridge;border-top:ridge;border-right:ridge;border-bottom:ridge;">' . getEstCarrera($idPersona) . '</td>';
		$impresion .= '<tr>';
		$impresion .= '</table>';
		
		$respuesta -> assign('jugador', 'innerHTML', $impresion);
		
		return $respuesta;
	}
	
	$xajax -> registerFunction('mostrarBateador');
	
	function mostrarLanzador($idPersona) {
		$respuesta = new xajaxResponse();
		
		$impresion = '<table align="center" cellspacing="5" border="1" bordercolor="#CCCCCC">';
		$impresion .= '<tr>';
		$impresion .= '<td valign="top" style="border-left:none;border-top:none;border-right:none;border-bottom:none;">' . getImagen($idPersona) . '</td>';
		$impresion .= '<td style="border-left:none;border-top:none;border-right:none;border-bottom:none;">' . getDatosRecientesLanzadores($idPersona) . '</td>';
		$impresion .= '</tr>';
		
		$impresion .= '<tr>';
		$impresion .= '<td colspan="2" style="border-left:none;border-top:none;border-right:none;border-bottom:none;">' . getEstResumenLanzadores($idPersona) . '</td>';
		$impresion .= '<tr>';
		
		$impresion .= '<tr>';
		$impresion .= '<td colspan="2" style="border-left:ridge;border-top:ridge;border-right:ridge;border-bottom:ridge;">' . getEstCarreraLanzadores($idPersona) . '</td>';
		$impresion .= '<tr>';
		$impresion .= '</table>';
		
		$respuesta -> assign('jugador', 'innerHTML', $impresion);
		
		return $respuesta;	
	}
	
	$xajax -> registerFunction('mostrarLanzador');
	
	$xajax -> processRequest();
	
?>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Reporte de por vida</title>

<?php
	$xajax -> printJavascript("xajax/");
?>

</head>

<body>
	<div id="formulario"><script type="text/javascript">xajax_mostrarFormulario()</script></div>
    <div id="jugador"><script type="text/javascript">xajax_mostrarBateador(1)</script></div>
</body>
</html>